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igure 1 : prior art VHDL listing 

LIBRARY ieee; 

USE ieee.stdlogicj 1 64.ALL; 
USE ieee. std_logic_arith. ALL; 

ENTITY test IS 
PORT( 

elk : IN stdlogic; 
rst : IN stdlogic; 
in1 : IN unsigned(7 downto O); 
in2 : IN unsigned (7 downto 0); 
out1 : OUT unsigned(7 downto 0) 

); 

END; 
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ARCHITECTURE behavioral OF test IS 
BEGIN 

main : PROCESS 

VARIABLE mini : unsigned(7 downto 0); 
VARIABLE min2 : unsigned(7 downto 0); 

BEGIN 

WAIT UNTIL (clk'EVENT and elk = '1'); 
mini : = in1 ; 
min2 := in2; 

loopl : WHILE ( mini < min2 ) LOOP 
IF (min2 > 0) THEN 

FOR x IN 0 TO 7 LOOP 



110 



120 



130 



ELSE 
140 



END 
END LOOP; 
out1 < = mini * min2; 
END PROCESS; 



mini := mini + min2; 
min2 : = min2 -1 ; 
LEND LOOP; 

FOR x IN 10 DOWNTO 5 LOOP 
mini : = mini - x; 
_END LOOP; 
F; 



END; 
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